;Modifies thickness of a selection set of entities.
;	The only input
;       required is the selection of the entities to modify.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	8-4-97
;	Edited:		8-4-97
;
(DEFUN C:PLTHK ( / plin edpl)
  (setq nplthk (ureal 1 "" "New Thickness" nplthk))
  (prompt "\nSelect Entities(s): ")
    (setq pset (ssget))
    (if pset
      (progn
        (setq psln (sslength pset))
        (setq cntr 0)
      )
    )
  (while
    (if (and (< cntr psln) pset)
      (setq pent (entget (ssname pset cntr)))
    );if
    (setq edpl (entget (cdar pent)))
      (progn
        (setq edpl
          (subst (cons 39 nplthk)
                 (assoc 39 edpl)
                 edpl
          ))
;        (setq edpl
;          (subst (cons 41 nplthk)
;                 (assoc 41 edpl)
;                 edpl
;          ))
        (entmod edpl)
      )
    (setq cntr (1+ cntr))
  )
);DEFUN
  